Sub C_Sample037()
    Dim mySht As Worksheet
    Set mySht = Worksheets(1)       'N
  With mySht
        .EnableCalculation = False  'i۰ʦAp
        .EnableAutoFilter = True    '\bQO@ɶi۰ʿz
        .EnableOutlining = True     '\bQO@ɶi~ؽuާ@
        .EnablePivotTable = True    '\bQO@ɶiϯäRާ@
        .EnableSelection = xlNoSelection
        'bQO@ɡA\ܩҦxs
        '.EnableSelection = xlUnlockedCells '\bQO@ɡAܨSQwxs
        '.EnableSelection = xlNoRestrictions
        '\bQO@ɡAܩҦxs
    End With
    Set mySht = Nothing             '
End Sub

